home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / QUEENMC.Dxr / 00152_Half_Loop.ls < prev    next >
Encoding:
Text File  |  1997-05-12  |  2.2 KB  |  74 lines
  1. on enterFrame
  2.   global HalfSW, YouComputerSW, Counter, YourScore, YourLoction, YourCount, YourH, YourV, ComputerScore, ComputerLoction, ComputerCount, ComputerH, ComputerV, YourBallH, YourBallV, ComputerBallH, ComputerBallV, YourDirection, ComputerDirection, ThrowType, Counter1, MyCursor
  3.   if HalfSW = 0 then
  4.     set the text of cast "Yshots" to string(YourCount)
  5.     if ComputerDirection = "+" then
  6.       set the text of cast "Yspot" to string(ComputerLoction)
  7.     else
  8.       set the text of cast "Yspot" to string(10 + 9 - ComputerLoction)
  9.     end if
  10.     set HalfSW to 1
  11.   end if
  12.   if YourCount > 0 then
  13.     set ThrowType to random(3)
  14.     if ThrowType <> 1 then
  15.       set YourCount to YourCount - 1
  16.     end if
  17.     set the text of cast "Yshots" to string(YourCount)
  18.     go(the frame + 1)
  19.   else
  20.     if Counter1 = 0 then
  21.       set ThrowType to random(3)
  22.       set Counter1 to 1
  23.       go(the frame + 1)
  24.     else
  25.       if Counter1 = 1 then
  26.         set TR to random(3)
  27.         if (TR = 1) or (TR = 2) then
  28.           set ThrowType to random(3)
  29.           set Counter1 to 2
  30.           set the visible of sprite 15 to 1
  31.           set ComputerCount to ComputerCount + 1
  32.           go(the frame + 1)
  33.         else
  34.           go("ce" & string(ComputerLoction))
  35.         end if
  36.       else
  37.         if Counter1 = 2 then
  38.           set TR to random(2)
  39.           if TR = 1 then
  40.             set ThrowType to random(3)
  41.             set Counter1 to 3
  42.             set the visible of sprite 16 to 1
  43.             set ComputerCount to ComputerCount + 1
  44.             go(the frame + 1)
  45.           else
  46.             go("ce" & string(ComputerLoction))
  47.           end if
  48.         else
  49.           if Counter1 = 3 then
  50.             set TR to random(10)
  51.             if TR = 20 then
  52.               set ThrowType to random(3)
  53.               set Counter1 to 4
  54.               set the visible of sprite 17 to 1
  55.               set ComputerCount to ComputerCount + 1
  56.               go(the frame + 1)
  57.             else
  58.               go("ce" & string(ComputerLoction))
  59.             end if
  60.           else
  61.             if Counter1 = 4 then
  62.               go("ce" & string(ComputerLoction))
  63.             end if
  64.           end if
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69. end
  70.  
  71. on exitFrame
  72.   go(the frame)
  73. end
  74.